10 N$="ZZ":POKE53281,0:POKE53280,0:NR=214:NC=211:KB=198:POKE808,225
20 GOTO470
30 POKENR,1:PRINT:PRINT"[159]ARE YOU SURE? (Y/N)"
40 POKEKB,0
50 GETK$:IFK$=""THEN50
60 POKEKB,0:RETURN
70 GOSUB100:POKENR,1:PRINT:PRINT"[159]*** WORKING ****    ":RETURN
80 POKENR,1:PRINT"[159]":PRINTMID$(M$,4,16):RETURN
90 M$="":POKENR,1:PRINT:PRINT"                              ":GOSUB120:RETURN
100 POKENR,RL+2:PRINT:PRINTTAB(CL*20);"[158]"MID$(N$(RL+(I+1)*CL+D-1),4,16)
110 RETURN
120 POKENR,R+2:PRINT:PRINTTAB(C*20);"[159]";MID$(N$(R+(I+1)*C+D-1),4,16)
130 RETURN
140 PRINT"[147][158]"HE$;
150 IFD>1THENPOKENC,21:PRINT" P = PRIOR SCREEN "
160 IFD=<N-40THENPOKENC,21:PRINT" N = NEXT SCREEN  "
170 I=INT((N-D-1)/2+.5):IFI>19THENI=19
180 GOSUB80:POKENR,3:PRINT"[158]"
190 FORX=DTOD+I
200 PRINTMID$(N$(X),4,16)",";
210 PRINTT$(ASC(N$(X))ANDNOT248);
220 IF(ASC(N$(X))AND64)=64THENPRINT"<";
230 IFASC(N$(X+I+1)+CHR$(0))=0THEN280
240 PRINTTAB(20);MID$(N$(X+I+1),4,16)",";
250 PRINTT$(ASC(N$(X+I+1))ANDNOT248);
260 IF(ASC(N$(X+I+1))AND64)=64THENPRINT"<";
270 PRINT
280 NEXT:IFR>ITHENR=I+1
285 IFR>ITHENR=I
290 GOSUB120:RETURN
300 GOSUB40:CL=C:RL=R
310 IFK$=CHR$(13)ORK$="[133]"ORK$="-"ORK$=","ORK$=" "ORK$=""THENRETURN
320 IFK$=""THENR=1:C=0
330 IFK$=""ORK$="[157]"THENC=NOTCAND1
340 IFK$=""ORK$="[145]"THENR=(R+1+2*(K$>""))
350 IFC>N-1THENR=1:C=0
360 IFR>I+1THENR=1
370 IFR<1THENR=I+1
380 IFN$(R+(I+1)*C+D-1)=""THEN330
390 IF(CL<>C)OR(RL<>R)THENGOSUB100:GOSUB120
400 IFK$="P"ANDD>1THEND=D-40:GOSUB140
410 IFK$="N"ANDD=<N-40THEND=D+40:GOSUB140
420 GOTO300
430 POKENR,7:PRINT:PRINT"   [158]ARE YOU SURE? (Y/N)    "
440 GOSUB40:IFK$="Y"THEN1440
450 IFK$=""THEN440
460 RETURN
470 PRINT"[147][159][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]
480 [153]"PEEK     SYSDIRECTORY FILEROPEN      PEEK"
490 [153]"PEEK                          PEEK"
500 [153]"PEEK SYSINSERT DISKETTE IN DRIVEOPEN PEEK"
510 [153]"MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)
520 FORX=1TO6:N$=N$+N$:NEXT
530 N$=MID$(N$,2):N$=N$+N$
540 FORX=828TO861
550 READY:POKEX,Y:NEXT
560 FORX=1TO30:Z$=Z$+CHR$(0):NEXT
570 DIMN$(144),S(18),T$(4):D=1:N=0:F=0:B=1:R=1:C=0
580 FORX=0TO17:READY:S(X)=Y:NEXT
590 T$(1)="S":T$(2)="P":T$(3)="U":T$(4)="R"
600 LN$=CHR$(130)+CHR$(18)+CHR$(18)+"----------------"+LEFT$(Z$,11)
610 PRINT"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
620 PRINT"[194] [158]PRESS RETURN[146] TO CONTINUE[159] [194]"
630 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
640 GOSUB40:IFK$=""THENGOSUB430
650 POKENR,7:PRINT:PRINT"    [158]READING DISK NAME     "
660 OPEN15,8,15,"I0":OPEN1,8,3,"$"
670 SYS828:INPUT#15,EN$,EM$:IFEN$="00"THEN710
680 POKENR,7:PRINT
690 PRINT"   [158]DISK READ ERROR # "EN$"  "
700 PRINT:GOTO1480
710 HE$=MID$(N$,143,16)+","+MID$(N$,161,2)
720 POKENR,3:PRINT:PRINT"   "HE$"    "
730 POKENR,7:PRINT:PRINT"    READING ENTRY #"N"  "
740 SYS828:FORX=1TO254STEP32:Y=ASC(MID$(N$,X,1))AND127
750 IFY=0THEN770
760 N=N+1:N$(N)=MID$(N$,X,30)
770 POKENR,7:PRINT:POKENC,20:PRINTN
780 NEXT
790 IFST=0THEN730
800 PRINT"[145]    TOTAL ENTRIES ="
810 FORX=1TO1500:NEXT
820 CLOSE1
830 M$="":GOSUB140
840 GOSUB300:F=R+(I+1)*C+D-1
850 IFK$="-"THEN990
860 IFK$=" "ANDN>1THEN1040
870 IFK$=","THEN1120
880 IFK$=""THEN1190
890 IFK$="[133]"THEN1230
900 M$=N$(F):GOSUB80
910 GOSUB300:T=R+(I+1)*C+D-1
920 IFF=T-1ORF=TTHENGOSUB90:GOTO840
930 GOSUB70
940 IFF>TTHENV=-1
950 IFF<TTHENV=1:T=T-1
960 N$(F)=N$(F+V):F=F+V:IFF<>TTHEN960
970 N$(T)=M$
980 GOTO830
990 GOSUB70:B=0
1000 N=N+1:FORX=NTOF+1STEP-1
1010 N$(X)=N$(X-1):NEXT
1020 N$(F)=LN$
1030 GOTO830
1040 GOSUB30:IFK$<>"Y"THENGOSUB90:GOTO840
1050 GOSUB70:B=0
1060 N=N-1:FORX=FTON
1070 N$(X)=N$(X+1):NEXT
1080 N$(N+1)=""
1090 IFN<C+1THENC=0
1100 IFF=N+1THENR=R+(R>1)
1110 GOTO830
1120 A=ASC(N$(F))
1130 IFA=130THENA=194:GOTO1150
1140 IFA=194THENA=130
1150 N$(F)=CHR$(A)+RIGHT$(N$(F),29)
1160 POKENR,RL+2:PRINT:PRINTTAB(CL*20+18);
1170 PRINT"[158]"CHR$(-60*(A=194));CHR$(-32*(A=130))
1180 GOTO840
1190 GOSUB100
1200 GOSUB30:IFK$="Y"THEN1440
1210 IFK$=""THEN1200
1220 GOSUB90:GOTO840
1230 GOSUB100:GOSUB30:IFK$<>"Y"THENGOSUB90:GOTO840
1240 POKENR,1:PRINT:PRINT"[159]WRITING DIRECTORY  "
1250 IFN/8=INT(N/8)THEN1270
1260 N=N+1:N$(N)=Z$:GOTO1250
1270 S=0:T=18:S(N/8+.5)=255:N=1:OPEN2,8,2,"#"
1280 IFS(S+1)=255THENT=0
1290 PRINT#15,"B-P";2;0
1300 PRINT#2,CHR$(T);CHR$(S(S+1));:P=2
1310 FORX=NTON+7:PRINT#15,"B-P";2;P
1320 PRINT#2,N$(X);:P=P+32:NEXT:N=X
1330 PRINT#15,"U2";2;0;18;S(S):INPUT#15,EN$,EM$:IFEN$="00"THEN1370
1340 POKENR,1:PRINT
1350 PRINT"[159] DISK WRITE ERROR # "EN$
1360 FORT=1TO2000:NEXT:GOTO1440
1370 S=S+1:IFS(S)<>255GOTO1280
1380 IFBTHEN1410
1390 PRINT#2,CHR$(0);CHR$(255);Z$:PRINT#15,"U2";2;0;18;18
1400 POKENR,1:PRINT:PRINT"[159]VALIDATING BAM    ":PRINT#15,"V0"
1410 CLOSE2:PRINT#15,"I0":CLOSE15
1420 POKENR,1:PRINT:PRINT"[159]ANOTHER DISK? (Y/N)"
1430 GOSUB40:IFK$="Y"THENRUN
1440 PRINT"[147]":POKENR,7:PRINT
1450 PRINT"[159][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
1460 PRINT"[194]    [158]PROGRAM TERMINATED    [159][194]"
1470 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
1480 CLOSE1:CLOSE2:CLOSE15
1490 SYS 65418
1500 DATA 160,2,177,45,153,137,0,200,192,6,208,246,162
1510 DATA 1,32,198,255,32,228,255,164,142,145,140,200
1520 DATA 132,142,196,139,208,242,76,204,255
1530 DATA 1,4,7,10,13,16,2,5,8,11,14,17,3,6,9,12,15,18